10 DEFINT A-Z:DEFDBL P,T:W=30:H=90:Y0=70:PI=3.141592654#
20 DIM B(7):FOR I=0 TO 7:B(I)=2^(7-I):NEXT I
30 KEY OFF:SCREEN 1:COLOR ,1:CLS:PI=3.141592654#
40 CIRCLE (160-W,Y0),W,2,-PI*2,-PI,.9:PAINT (160-W,Y0-3),2
50 CIRCLE (160+W,Y0),W,2,-PI*2,-PI,.9:PAINT (160+W,Y0-3),2
60 FOR Y=1 TO H:X=INT(W*2*COS(Y*PI/2/H)+.5)
70 LINE (-X+160,Y+Y0)-(X+160,Y+Y0),2
80 NEXT Y
90 X=30:Y=50:GOSUB 200:Y=102:GOSUB 200
100 X=320-30-45:Y=50:GOSUB 200:Y=102:GOSUB 200
110 LINE (0,0)-(320,1),3,BF:LINE (0,3)-(320,3),3
120 LINE (0,196)-(320,196),3:LINE (0,198)-(320,199),3,BF
190 WHILE INPUT$(1)="":WEND:SCREEN 0:WIDTH 80:CLS:END
200 FOR I=0 TO 15:FOR J=0 TO 1:READ N:FOR K=0 TO 7
210 IF (N AND B(K))<>0 THEN XD=X+(J*8+K)*3:YD=Y+I*3:LINE(XD,YD)-(XD+2,YD+2),1,BF
220 NEXT K:NEXT J:NEXT I:RETURN
300 DATA 0,0,0,4,255,254,2,0,2,0,4,0,4,0,8,8
310 DATA 31,252,40,8,72,8,136,8,8,8,8,8,15,248,8,8
320 DATA 0,128,0,128,8,128,6,128,34,128,24,128,8,128,0,132
330 DATA 255,254,0,128,1,0,1,96,2,16,4,8,24,12,96,4
340 DATA 2,0,127,252,2,0,63,248,4,0,255,254,8,64,8,32
350 DATA 31,240,40,46,200,36,15,224,8,32,8,32,15,224,8,32
360 DATA 16,64,16,36,19,254,16,0,252,248,36,136,36,248,36,0
370 DATA 39,254,74,2,41,252,16,32,40,32,68,32,132,160,0,64

